Top 10k strings from Video Basic - Issue 12 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
5 ***********************
5 *
5
4 A$="PON EN MARCHA LA GRABADORA":
4 "4";"ESTA BIEN ESCRITO ? (S/N)";
4 "23606",z:
3 t$=" PULSA UNA TECLA PARA CONTINUAR "
3 t$(2)-48":
3 U;" ";N$;" "
3 T$=" ELIGE, "+N$+":":
3 ;"VIDEOBASIC":
3 "9",N;" ~|";
3 "8",N;A$(N-2
3 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
3 "10",z;" PARA LA GRABADORA ":
3 "10",N;" \]"
3 PASO A LA PARTE";
2 t$(3)-48":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 p$="GRABADORA":
2 Via Indipendenza 88
2 Q$="PULSA R REPETIR C CONTINUAR ":
2 LEE LOS UDG
2 HOMBRECILLO
2 ,XX;" ";
2 "BIEN, "+N$+"
2 "7",u;"-120";
2 "6";" SIGUIENTE"
2 "6"," ":
2 "30";" ";
2 "28";"120";
2 "23617",Z:
2 "23296"+N,
2 "14";"80";
2 "13";"-80"
2 "126-XL/2",
2 "(21-YP)*8-2":
2 VUELTA AL PRINCIPIO";
2 SOFTIDEA (Como)
2 * * * *
2 Tel.031-240.959
2 PARA LA GRABADORA
2
2
1 yy=yy+(a$(w)="v")-(a$(w)="t")
1 yy,xx;" ";
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y=y-(s$="v")+(s$="t"):
1 y=y+(s$="v")-(s$="t"):
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xx=xx+(a$(w)="g")-(a$(w)="f"):
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 x=x-(s$="g")+(s$="f"):
1 x=x+(s$="g")-(s$="f"):
1 u;"Y=INP. YR=SALV.Y I=CON. P=PUNTOS"
1 u;"EXACTO !":
1 u;"DRAW ";t$
1 u;" VALOR NO ACEPTABLE ",:
1 u;" INTRODUCE <E> PARA TERMINAR",:
1 u,u;"DRAW ";t$
1 t$="TODAS LAS INSTRUCCIONES GRAFI-CAS ACEPTAN LOS MISMOS ATRIBU-TOS QUE ESTAN A DIPOSICION DE<PRINT>.":
1 t$="PODEMOS USAR UN TERCER PARAME-TRO CON LA INSTRUCCION <DRAW>;EN ESTE CASO SE ESTABLECECUANTO TIENE QUE ROTAR LA LI-NEA A LO LARGO DE SU RECORRI-DO.":
1 t$="PERO ES NECESARIO CONSIDERARQUE <INK>, <PAPER> Y <BRIGHT>SIEMPRE SE REFIEREN A UN CUA-DRADADO ENTERO DE 8*8 PIXELS.":
1 t$="LA INSTRUCCION <DRAW> SIRVEPARA TRAZAR LINEAS EN PANTA-LLA, PERO NO UTILIZA COMO RE-FERENCIA LOS BORDES DE LA PA-GINA, SINO EL ULTIMO PUNTO IN-DICADO, BIEN DIRECTAMENTE ATRAVES DE <PLOT>, O INDIRECTA-MENTE CON <DRAW>.":
1 t$="EXISTE TAMBIEN, UNA INSTRUC-CION PARA TRAZAR CIRCULOS; RE-QUIERE LAS COORDENADAS ABSOLU-TAS DEL CENTRO Y DEL RADIO EX-PRESADAS EN PIXELS.":
1 t$="...LA SEGUNDA <Y> PUEDE VARIARDESDE <0> A <175>, Y REPRESEN-TA LA ALTURA CON RESPECTO ALBORDE INFERIOR DE LA PAGINA.":
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 q$=" PULSA UNA TECLA PARA CONTINUAR "
1 p;" ":
1 p;" ":
1 p$="y el Lapiz Optico ":
1 p$="los temas de la leccion ":
1 p$="de un Cuadrado ":
1 p$="Visita Medica ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="Trazamos un Grafico ":
1 p$="Qix ":
1 p$="PUNTOS":
1 p$="PULSA UNA TECLA":
1 p$="PLOT - DRAW ":
1 p$="PARA LA":
1 p$="La Tableta Grafica ":
1 p$="La Precision del SPECTRUM ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Graficos Complejos ":
1 p$="GOSUB - RETURN ":
1 p$="En el proximo numero... ":
1 p$="El Serpienton ":
1 p$="El Plotter ":
1 p$="CONECTA LA":
1 p$="CIRCLE - POINT ":
1 p$="Area y Perimetro ":
1 p$=" PULSA UNA TECLA ":
1 p$=" HAS HECHO ":
1 n;" ":
1 j,u;" "
1 i,u;"175 80 0"(i):
1 copy=23760
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$="LA PROGRAMACION":
1 a$=" ":
1 YY,XX;" ";
1 YR=Y","02@FIN CICLO ?","<<13","2@70
1 YR=0","045INT. ""P""","#813","2520
1 Y1,X1;" ";
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="*PULSA UNA TECLA PARA CONTINUAR *"
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 W$="TANTO LA TABLETA GRAFICA COMOEL LAPIZ OPTICO, NECESITAN DESOPORTE SOFTWARE PARA PODER FUN-CIONAR.":
1 W$="TAMBIEN EXISTE OTRA TABLETA QUEPARA DETECTAR LAS COORDENADASDEL PUNTO EMPLEA DOS POTENCIOME-TROS EN LUGAR DE LA BASE.":
1 W$="SI EL PROGRAMA HACE AVANZAR UNASLINEAS LUMINOSAS SOBRE LA PANTA-LLA, COMPROBARA CUANDO LAS IN-TERCEPTA LA PLUMA, PUDIENDO LO-CALIZARSE ASI TODOS LOS PUNTOSDE LA PANTALLA.":
1 W$="SE TRATA DE DOS DISPOSITIVOS DEENTRADA DE INFORMACIONES QUE NOSE PUEDAN ENVIAR DESDE EL TECLA-DO.":
1 W$="NATURALMENTE, ESTE TRABAJO SEREALIZA MAS RAPIDAMENTE Y EN AL-TA RESOLUCION.":
1 W$="LA TABLETA ESTA CONSTITUIDA PORUNA BASE SENSIBLE Y UNA PLUMA.LA POSICION DE LA PLUMA SOBRE LABASE ES LEIDA Y TRANSFORMADAPOR DOS CONVERTIDORES (HORIZON-TAL Y VERTICAL) EN LAS COORDE-NADAS DEL PUNTO, Y ENVIADA ALSPECTRUM.":
1 W$="LA PLUMA LOCALIZA SU POSICION ENPANTALLA, GRACIAS A UN FOTOTRAN-SISTOR SITUADO EN SU EXTREMO.CUANDO ESTE ES GOLPEADO POR LALUZ, GENERA UNA CORRIENTE QUE ELSPECTRUM ES CAPAZ DE INTERCEP-TAR.":
1 W$="IMAGINA QUE TIENES LA NECESIDADDE CALCULAR EL AREA DE UNA FIGU-RA MUY COMPLEJA. EL PROBLEMAPRINCIPAL CONSISTIRA EN INDICAREL CONTORNO DE LA FIGURA.":
1 W$="ES SUFICIENTE CON APOYARLO SOBRELA PANTALLA, PARA QUE LA PLUMASEA CAPAZ DE SABER SI EL PUNTOESTA APAGADO O ENCENDIDO.":
1 W$="EN ESTA LECCION HABLAREMOS DE LATABLETA GRAFICA Y DEL LAPIZ OP-TICO.":
1 W$="EN EL EJEMPLO, LA BARRA AZUL RE-PRESENTA LA PLUMA.":
1 W$="EL PROGRAMA SOLO TIENE QUE LEERLOS VALORES <X> E <Y>,E IMPRIMIREN PANTALLA EL PUNTO CORRESPON-DIENTE.":
1 W$="EL LAPIZ OPTICO FUNCIONA Y SEUSA DE DISTINTA FORMA.":
1 W$="CONECTA LA GRABADORA"
1 W$="AQUI ES DONDE RESULTARA UNA AYU-DA EL LAPIZ OPTICO Y LA TABLETAGRAFICA.":
1 W$=" PULSA R REPETIR C CONTINUAR ":
1 W$=" GRABADORA "
1 W$=" TECLA ":
1 W$=" PARA LA GRABADORA":
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOJUEGO
1 VIDEOHARD
1 VIDEOBREAK
1 VIDEOBASIC N.12
1 UNIDAD DE MEDIDA PARA LAS LI-NEAS CURVAS RADIANES
1 UN SEMICIRCULO HORARIO NECESI-TA UN ANGULO... NEGATIVO
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U+U,XP;A$;
1 TRAZA LINEAS CURVAS CON TRESPARAMETROS DRAW
1 TIPO DE LAPIZ PARA ESCRIBIR ENPANTALLA OPTICO
1 TEST CODE
1 TAB.TEST
1 TAB LENG1
1 T$="SUPONGAMOS QUE ACABAMOS DEEJECUTAR LA INSTRUCCION <PLOT>EN EL PUNTO INDICADO. ESTE, APARTIR DE AHORA, CONSTITUIRALA REFERENCIA PARA <DRAW>.":
1 T$="QUIZAS SEA MEJOR QUE VUELVAS ALEER EL PROGRAMA, Y LO INTEN-TES DE NUEVO.":
1 T$="POR LO TANTO LOS RESULTADOS NOSIEMPRE SERAN LOS DESEADOS.":
1 T$="POR LO TANTO LAS COORDENADASPROPORCIONAN UN DESPLAZAMIENTORELATIVO, COMO VERAS A CONTI-NUACION.":
1 T$="PLOT INK 4;10,10":
1 T$="PARA LOS GRAFICOS UTILIZAMOSLA PARTE SUPERIOR DE LA PANTA-LLA QUE ESTA FORMADA POR 45056PUNTOS, ACCESIBLES UNO PORUNO.":
1 T$="LA COMBINACION DE ESTOS DOSVALORES ESTABLECE LA POSICIONDE CADA PUNTO (PIXEL), GESTIO-NABLE MEDIANTE LA INSTRUCCION<PLOT>, A USAR EN LA FORMA:PLOT X,Y.":
1 T$="LA COMBINACION <INVERSE+OVER>DEJA LA PAGINA INTACTA, PEROPERMITE ESTABLECER LA POSICIONDE <PLOT> PARA UN SUCESIVO<DRAW>.":
1 T$="INTENTA ESCRIBIR LAS INSTRUC-CIONES QUE TE PIDA. SEGURO QUE NO ENCONTRARASGRANDES DIFICULTADES.":
1 T$="EXISTE LA POSIBILIDAD DE CONO-CER LA SITUACION EXISTENTE ENLA PANTALLA CON LA FUNCION:":
1 T$="ESTE VALOR SE EXPRESA EN RA-DIANES, Y PROVOCA UNA ROTACIONANTIHORARIA SI ES POSITIVO, YHORARIA SI ES NEGATIVO.":
1 T$="ESTABLECE <TINTA VERDE> NO SO-LO PARA EL PIXEL 10,10 SINOTAMBIEN, PARA LOS 63 QUE LERODEAN.":
1 T$="ELIGE, "+N$+":":
1 T$="EL DIRECCIONAMIENTO SE REALIZAA TRAVES DE DOS COORDENADAS:LA PRIMERA <X> PUEDE IR DESDE<0> A <255>, Y REPRESENTA ELDESPLAZAMIENTO HORIZONTAL CONRESPECTO AL BORDE IZQUIERDO.":
1 T$="DEVUELVE <1>, SI EL PIXEL DI-RECCIONADO CONTIENE TINTA; <0>EN EL CASO CONTRARIO (LASCOORDENADAS DEBEN ENCERRARSEENTRE PARENTESIS Y DEBEN PRO-PORCIONARSE EN VALORES ABSOLU-TOS).":
1 T$="DE ESE MODO PUEDES DIBUJAR YBORRAR RESTABLECIENDO EXACTA-MENTE LAS CONDICIONES INICIA-LES DE LA PANTALLA.":
1 T$="BIEN, "+N$+"
1 T$="AHORA, "+N$+"":
1 T$="A VECES ESTE EFECTO PUEDE SERDESASTROSO!":
1 T$="A <INPUT ""P""> DEBERAS CONTES-TAR CON EL NUMERO DE LOS VALO-RES QUE TIENES INTENCION DEINSERTAR EN <INPUT ""Y""> DONDEINTRODUCIRAS DICHOS VALORES.":
1 T$="<OVER> COMBINA LOS PUNTOS DETINTA PRESENTES, CON AQUELLOSGENERADOS POR LA INSTRUCCION,DE LA MISMA MANERA QUE YA VI-MOS CON <PRINT>.":
1 T$="<INVERSE> INVIERTE EL EFECTODE LA INSTRUCCION GRAFICA, PORLO TANTO, CUANDO ESTA ACTIVADOBORRA EN LUGAR DE DIBUJAR TO-DOS LOS PUNTOS QUE LA INSTRUC-CION HUBIERA GENERADO.":
1 SOFTIDEA (Como)
1 SISTEMAS COMPUTERIZADOS DEDI-CADOS A PROYECTOS GRAFICOS CAD
1 SISTEMAS ELECTRICOS PARA ELCONTROL DE MAQUINAS CAM
1 SIRVE PARA TRAZAR CIRCULOS CIRCLE
1 SCROLL=23828
1 RUTINA MAQUINA DE ESCRIBIR
1 ROTULOS ENTRANTES
1 ROTULO ROTATORIO
1 REGISTRO DEL NOMBRE
1 PROGRAMA <
1 PORTADA S
1 PANTALLA
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$=" PULSA UNA ":
1 P$=" PARA LA ":
1 P$=" F PARA TERMINAR ":
1 P$=" en el numero 13 ":
1 P","049INT. ""Y""","#813","2940
1 O,i;A$(i-2
1 NUMERO MAXIMO DE PIXELS UTILI-ZABLES EN HORIZONTAL 256
1 N$=N$+" ":
1 M-15344-1985
1 LOS GRAFICOS CONSTITUYEN SINDUDA, UNA DE LAS APLICACIONESMAS INTERESANTES Y ESPECTACU-LARES DE LOS ORDENADORES.% %LOS GRAFICOS ESTABLECEN UNACOMUNICACION DIRECTA ENTREHOMBRE Y MAQUINA. INFORMACIO-NES CODIFICADAS BAJO FORMADE NUMEROS Y LETRAS, RESULTANA VECES POCO COMPRENSIBLES.GRACIAS A LA REPRESENTACIONGRAFICA, ES POSIBLE COMUNICARCONCEPTOS (AUNQUE CON LIMITESDEBIDOS A UNA EXCESIVA ESQUE-MATIZACION) DE UNA MANERA IN-MEDIATA Y FACILMENTE INTERPRE-TABLE HASTA POR PERSONAS CA-RENTES DE UNA PREPARACION ES-PECIFICA.% %LAS APLICACIONES DE ESTE TIPOTOCAN CAMPOS TAN DISPARES CO-MO: PROYECTOS MECANICOS Y AR-QUITECTONICOS, LA OBSERVACIONASTRONOMICA, LA SIMULACION DEANALISIS MEDICOS, ETC. TAMBIEN PARA LOS MICROORDENA-DORES HAN EMPEZADO A APARECERSOPORTES DE SOFTWARE, QUE PRO-DUCEN A VECES RESULTADOS ES-PECTACULARES CON EL COLOR YLAS IMAGENES TRIDIMENSIONA-LES.% %LA UNIDAD DE MEDIDA GRAFICA ESEL <PIXEL>, QUE REPRESENTA ELEL
1 LETREROS ROTATORIOS
1 LETREROS ENTRANTES
1 LENG.UNO
1 LENG. DOS V
1 INGELEK JAKSON
1 I","04B FIN ","#813"
1 HAS ESCRITO CORRECTAMENTE TUPRIMER PROGRAMA GRAFICO. ESTOYSEGURO QUE ESTE TEMA NO DEJARADE INTERESARTE, Y TE LLEVARA AAPLICACIONES CADA VEZ MAS PER-FECCIONADAS Y COMPLEJAS."
1 ENCIENDE UN PIXEL PLOT
1 EMI UN TASTO PER CONTINUARE PR
1 EJERCICIOS1
1 DEVUELVE <1> SI EL PIXEL ESPE-CIFICADO ESTA ENCENDIDO POINT
1 CC-AA,DD-BB,EE:
1 CAR TEST
1 CAR PROG.
1 CAR NEXT
1 CAR LIST
1 CAR LENG2
1 CAR LENG1
1 CAR JUEGO ,
1 CAR HARD x
1 CAR EJER.
1 B$="------------"
1 AHORA PULSA <RUN> Y VERAS FUN-CIONAR TU PROGRAMA.":
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO.
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10 A PARTIR DE10."
1 AA,BB,CC,DD,EE:
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$=" LOS GRAFICOS":
1 A$=" GRAFICOS: DRAW * CIRCLE":
1 A$=" GRAFICOS":
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"toolcode"
1 ;"ejemplos y ejercicios";
1 ;"Y=";Y,"X=";0
1 ;"Y PULSA <ENTER>":
1 ;"TU PUNTUACION ES ";s;" SOBRE 20."
1 ;"SPECTRUM. Hasta pronto,";
1 ;"PULSA UNA TECLA PARA TERMINAR "
1 ;"PREGUNTA N. ";w
1 ;"PON EN MARCHA LA GRABADORA":
1 ;"PARA MEJORAR, VUELVE A LEER";
1 ;"OTRRA VEZ"
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"HASTA PRONTO":
1 ;"Guarda la cinta en su caja";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"BUSCA LA COORDENADA <Y>"
1 ;"BUSCA LA COORDENADA <X> "
1 ;"""";i$;""" esta equivocado."
1 ;" COORDENADAS DEL PUNTO :"
1 ;" COORDENADA <Y> ENCONTRADA":
1 ;" SIGUIENTE"
1 ;" PULSA UNA TECLA "
1 ;" ESTA BIEN ESCRITO, ";
1 ;" PARA LA GRABADORA ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" ":
1 ;" ":
1 5TRADUCCION
1 4;125,61,30":
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 4 O U T P U T "
1 255,0","PON UN PUNTO EN LA ESQUI-","NA INFERIOR DERECHA","DE LA PANTALLA",""
1 23688/2-U"
1 23688+x)>31"
1 22 - FASE DE CALCULO","COMO OBTENDREMOS EL GRAFICO ?",""
1 195,115,60","DIBUJA UN CIRCULO","CON RADIO DE 60 PIXEL","TANGENTE","AL BORDE SUPERIOR DERECHO",""
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS NECE-SARIOS EN NUESTRO PROBLEMA ?",""
1 1 I N P U T ","043INIC. YR","#810","2310
1 000000000000000000000000000000000000000000000000000000000000000000000000001111111111111021100000000000000211111111111112211000000000000002222222222222222110000000000000022222222222222221100000000000000000000000000000000000000666666666600000000066000000000006660088888888888888888880666660000000888===============8000000088888888?===============8888888888888888?<<<<<<<<<<<<<<<8888888888888888?;;;;;;;;;;;;;;;8888888888888888?;;;;;;;;;;;;;;;8888888888888888?:::::::::::::::8888888888888888?:::::::::::::::8888888888???888888888888888888:8888888888???8888????88?????::::8888888888???????889999999999:::888888888?88888888888888889999998888888888888888888888888888888888888888????????????????????????????????8888888888888888888888888888888888888888888888888888888888888888
1 /2","TRAZA UN ARCO EN SENTIDO","HORARIO, ENTRE DOS RECTAS A"," 90 GRADOS, DISTANTES 50,50","PIXEL",""
1 ...................................
1 -J/A,ER+J/A*.7
1 -255,-175","...Y DESDE AHI (ABAJO A LA","DERECHA) TRAZA UN LINEA QUE","LLEGUE AL EXTREMO OPUESTO.",""
1 ,Z;"PULSA ""V"" PARA IR HACIA ABAJO";
1 ,Z;"PULSA ""T"" PARA IR HACIA ARRIBA";
1 ,Z;"PULSA ""G"" PARA IR A LA DERECHA";
1 ,Z;"PULSA ""F"" PARA IR A LA IZQUIERDA";
1 ,Z;"NO TOQUES LAS OTRAS TECLAS !!!!";
1 ,XX;" ":
1 ,X1;" "
1 ,"180,150",
1 *VIDEOBREAK NUMERO 12*
1 *COPYRIGHT BY SOFTIDEA*
1 **AYUDA II INTENTO**
1 ***respuestas flash***
1 ***puntuacion***
1 ***pulsa tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 ***********************
1 *(schermi=2
1 * VIA INDIPENDENZA 88 *
1 * C O M O *
1 ));q$(q,65
1 (yyy,xxx)=" "
1 (255/P),Y-YR","04>SALVA YR","#813"
1 '''" POINT (X,Y)"'''
1 "xg+xs/2",yg+ys*
1 "program to load: ";i$:
1 "mC or tape (M/c) ";w$:
1 "Utilizando un ciclo FOR-NEXTdebidamente inicializado, tra-zaremos una recta para cadavalor introducido.",""
1 "TODAS LAS DEMAS COMBINACIONESGENERAN LINEAS MAS O MENOS IN-CLINADAS...","120,80",U,
1 "SI Y=0 EL DESPLAZAMIENTO VER-TICAL ES NULO. OBTENDREMOS UNALINEA HORIZONTAL HACIA LA DE-RECHA (X POSITIVA)...","120,0",
1 "RESPUESTA = ";
1 "PLOT 3-(X/2),A(IND+1)","COMO SIEMPRE, EN LUGAR DE VA-LORES ABSOLUTOS, ES POSIBLEPROPORCIONAR VARIABLES O EX-PRESIONES.",""
1 "PERO PERMANECEN VALIDAS...","-100,-80,2",
1 "OBSERVA ATENTAMENTE LAS INDI-CACIONES Y MENSAJES VISTOS EN<INPUT>.",""
1 "LOS PUNTOS DEL PRINCIPIO Y DELFINAL SE ESTABLECEN SEGUN LAFORMA ACOSTRUMBRADA; LA CURVA-TURA LA DA EL TERCER PARAME-TRO...","100,0,3.14",
1 "LET C=A+POINT(F,G)","LOS VALORES DEVUELTOS POR<POINT> (0 Y 1) SE CONSIDERANA TODOS LOS EFECTOS COMO NUME-RICOS, Y SE UTILIZAN COMO TA-LES.",""
1 "LA FUNCION <INT> EN LA LINEA<50> SIRVE PARA EVITAR QUE LASSUCESIVAS APROXIMACIONES CON-DUZCAN A VALORES INACEPTABLESPARA <DRAW>.",""
1 "IGUALMENTE SI X=0 GENERARA UNALINEA VERTICAL HACIA ARRIBA (YPOSITIVA)...","0,80",U,
1 "IF POINT(A(IN),B-R) THEN CLS","IGUALMENTE LA COMPARACION CON<1>, SE PUEDE OMITIR.",""
1 "Es necesario indicar:
1 "El resultado final consiste enel grafico de un numero de va-lores elegidos a tu gusto, ycomunicados con anterioridadal programa.","",""
1 "ESTA VEZ "+N$+"","USAREMOS LAS INSTRUCCIONES QUEHEMOS APRENDIDO PARA ESCRIBIRUN PROGRAMA GRAFICO.",""
1 "ESTA VEZ, HABLAREMOS DE LAGESTION DE GRAFICOS. CUANDO HAYAS ADQUIRIDO EL DO-MINIO NECESARIO, OBTENDRAS RE-SULTADOS ESPECTACULARES!",""
1 "DRAW INVERSE 0;A,B","ESTA INSTRUCCION SE EJECUTA ENLA FORMA HABITUAL: <INVERSE>ES ANULADO POR EL <0>.",""
1 "DRAW 20,0,PI","PUESTO QUE <PI> RADIANES CO-RRESPONDEN A <180> GRADOS, ES-TA INSTRUCCION TRAZA UN SEMI-CIRCULO.",""
1 "DESEAMOS UN PROGRAMA QUE TRACEEL DIAGRAMA DE UN NUMERO, CU-YOS VALORES HAN SIDO INTRODU-CIDOS POR EL TECLADO.",""
1 "CIRCLE BRIGHT A(IN);50,80,9","TODOS LOS ATRIBUTOS SON ACTI-VADOS POR UN ARGUMENTO DISTIN-TO DE <0>; TAMBIEN PUEDEN SERVARIABLES O EXPRESIONES.",""
1 "AHORA, "+N$+"","TRANSFORMAREMOS EL ANALISISANTERIOR EN UN DIAGRAMA DEFLUJO, Y DESPUES A INSTRUCCIO-NES <BASIC>."
1 ";a;",";b;",";j:
1 "92","100,80",84
1 "9";"- - - - - -"''':
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "7",U,-U,Z
1 "7",U,-U,U
1 "6";"PULSA";
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "3",;" ":
1 "255"/b),a-c:
1 "23658",Z:
1 "23617",u:
1 "23617",U:
1 "23606",Z:
1 "23562",U:
1 "23295+I",
1 "160","255,15",
1 "13",A,B,Z,-U
1 "13",-U,-U
1 "127-XL/2",
1 "12",u;" 50 100 150 200 255"
1 "12",O;"PARTE SIGUIENTE";
1 "10-a/2",U;
1 "10";"VIDEOBASIC":
1 "10";"PLOT ";t$
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "10",z;" PARA LA GRABADORA ":
1 "04; TRAZA ","04< LINEA ","#823","2;50
1 "047IN.CICLO","#813","2730
1 "...Y SEGUN LOS SIGNOS DE LASCOORDENADAS MISMAS.","-120,80",U,
1 "...Y HORARIA SI ES NEGATIVO.","0,80,-1",Z,
1 "...Y DIRIGIDAS HACIA VARIOSSENTIDOS...","-120,-80",
1 "...TODAS LAS COMBINACIONES.","100,-80,-2",
1 "...SERA ANTIHORARIA SI EL PA-RAMETRO ES POSITIVO...","0,70,1",Z,
1 "...SEGUN LA RAZON EXISTENTEENTRE <X> E <Y>...","120,-80",
1 "...O HACIA LA IZQUIERDA (X NE-GATIVA).","-120,0",
1 "...O HACIA ABAJO (Y NEGATIVA).","0,-80",
1 "-40",-U-U
1 ","TRAZA, EN SENTIDO ANTIHORA-","RIO UN SEMICIRCULO HORIZONTAL","CON DIAMETRO DE 50 PIXEL",""
1 ","SI EL PUNTO EN LA ESQUINA","INFERIOR IZQUIERDA DE","LA PANTALLA ESTA EN <INK>","LIMPIA LA PANTALLA",""
1 "*1 ","% "
1 ""Y "";Y","#813"
1 """";z$;""""
1 " TRAZAMOS UN "," GRAFICO "
1 Tel.031-240.959
1 SOFTIDEA - (Como)
1 REPETIR";
1 INTRODUCCION";
1 GRAFICOS: DRAW * CIRCLET
1 EJERCICIOS";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CARGAR LA";
1 CARGAR EL VIDEOJUEGO";
1 AL BASIC ":
1 ** ** ** ***********************
1 ** ** ** **
1 * los valores mismos (entre<0> y <175>).",""
1 * el numero de valores quevan a introducirse;
1 * * * ***********************
1 D A T A
1 Pon en marcha la grabadora
1 **
1 ":
1 *********************** ** ** **
1 ***********************
1 *********************** * * *
1
1
1
1